Function GetEnvList(wshShell, env_name)
	Set wshEnv = wshShell.Environment(env_name)
	If wshEnv is Nothing or wshEnv.Count = 0 Then
		GetEnvList = "": Exit Function
	End If
	dim list(), i: i = -1
	For Each env In wshEnv
		i = i + 1
		Redim Preserve list(i)
		list(i) = CStr(env)
	Next
	GetEnvList = Join(list, vbCrLf)
End Function
